10 REM VOCABULARY EXERCISE DESIGNED BY         BILL CUMBERLAND FEB 1989
15 POKE53280,0:POKE53281,0:POKE646,7:POKE53272,23
20 V$="2":REM MODULE IDENTIFICATION CODE
25 REM THIS MODULE WAS PREPARED BY ....
30 REM BILL CUMBERLAND - 1989:02:18
100 PRINT"[147]                                        [146]";
101 PRINT"                                        [146]";
102 PRINT"                [214][207][195][193][194] "V$"              [146]";
104 PRINT"                                           [146]";
105 PRINT"                                        [146]";
106 PRINT"                                        [146]";
107 PRINT"                                        [146]"
108 GOSUB9051:GOSUB9300:GOSUB660
109 PRINT"[147]                                        [146]";
110 PRINT"                                        [146]";
111 PRINT"    [212]HIS MODULE WAS PREPARED BY....     [146]";
112 PRINT"            [194]ILL [195]UMBERLAND             [146]";
113 PRINT"               03:04:89                 [146]";
114 PRINT"                                        [146]":GOSUB9052
115 PRINT"[147]   [212]HE FOLLOWING WORDS ARE EXAMINED:"
120 PRINT"MULCH, AERATION, POLLINATE, GAZEBO,     FLORA, TRELLIS, TENDRIL,";
125 PRINT" BONSAI, HARROW,ARABLE, BURGEON, SUCCULENT, PERENNIAL, ";
130 PRINT" HUMUS, PROPAGATE, PHOTOTROPISM, WINDOW, TUBER, TOPIARY, FALLOW
135 [153]"          RIGHT$NSTRUCTIONS?  Y/N":[141]9051:[141]9300
140 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]140
150 [139]R$[178]"N"[167]2000
200 [153]"LOAD             RIGHT$NSTRUCTIONS
210 PRINT"  [212]HIS IS ONE OF A SERIES OF MODULES      DESIGNED TO HELP YOU ";
220 PRINT"BUILD A GOOD       WORKING VOCABULARY.
230 [141]9054
240 [153]"LOAD  (null)EAD THE UNDERLINED WORD AND CHOOSE     ONE OF THE FIVE WORDS ";
250 [153]"WHICH HAS A       MEANING SIMILAR TO THE UNDERLINED       WORD.
260 PRINT"  [197]XAMPLE:    MIDDLE
270 [153]"              USRUSRUSRUSRUSRUSR
280 PRINT"           1. WARFARE
290 [153]"           2. MARCHED
300 PRINT"           3. LAWFUL
310 [153]"           4. CENTRE
320 PRINT"           5. RANCH
330 [153]"  (null)INCE 'CENTRE' IS THE CORRECT CHOICE,   YOU WOULD ENTER '4'";
340 [153]" AS YOUR RESPONSE    AND THEN PRESS (null)VAL(null)(null)(null)(null)WAIT
350 FORT=1TO4000:NEXT:PRINT"      [208]RESS  [211][208][193][195][197] [146] TO CONTINUE.
360 [161]R$:[139]R$[179][177][199](32)[167]360
370 [153]"LOAD  (null)RESS 1 TO REVIEW INSTRUCTIONS.
380 PRINT"  [208]RESS 2 TO START THE EXERCISE.
390 [161]R$:[139]R$[179][177]"1"[175]R$[179][177]"2"[167]390
400 [139]R$[178]"1"[167]200
410 [153]"LOAD  LEFT$ERE ARE TWENTY QUESTIONS FOR YOU.
420 GOSUB9052:PRINT"[147]"
430 W=1
440 GOTO2000
499 :
500 REM TERMINATION OF MODULE
505 IF C>18 THEN 535
510 IF C>16 THEN 570
515 IF C>14 THEN 595
520 PRINT"[147]  [217]OU SEEM TO HAVE PROBLEMS!
525 [153]"  (null)EE YOUR TEACHER!"
530 [141]9059:[137]540
535 [153]"LOAD   VALXCELLENT WORK!":[141]9052
540 [153]"   STR$O YOU WISH TO REVIEW THE DEFINITIONS   OF THESE WORDS?  Y/N
545 GETR$:IFR$<>"Y"ANDR$<>"N"THEN545
550 IFR$="Y"THEN5000
555 IFR$="N"THENPRINT"[147]  [212]RY MODULE [214][207][195][193][194] 3 WHEN YOU HAVE        THE TIME.
560 [141]9052:[137]9500
570 [153]"LOAD   CHR$OOD WORK!":[141]9052:[153]"   (null)OU MISSED"[197](W$)"WORDS"
575 [141]9055
580 [153]"   (null)ET'S REVIEW THE DEFINITIONS OF         THESE WORDS?
585 GOSUB9053:GOTO5000
590 GOSUB9055
595 PRINT"[147]  [217]OU ARE NOT DOING VERY WELL!":GOSUB9054
600 PRINT"  [201] WANT YOU TO REVIEW THE MEANING OF     THESE WORDS NOW."
605 GOSUB9053:PRINT"  [208]RESS  [211][208][193][195][197] [146] TO CONTINUE.
610 [161]R$:[139]R$[179][177][199](32)[167]610
615 [137]5000
654 :
655 [141]9054
660 [153]"      (null)RESS  (null)(null)ATNLENVAL WAIT TO CONTINUE.
665 GETR$:IFR$<>CHR$(32)THEN665
670 RETURN
1999 :
2000 PRINT"[147]":POKE53280,9:POKE53281,15:POKE646,0
2010 PRINT" 1       MULCH
2015 [153]"         USRUSRUSRUSRUSR
2020 PRINT"      1. GARDEN PATH
2025 [153]"      2. ORGANIC FERTILIZER
2030 PRINT"      3. GROUND COVERING
2035 [153]"      4. SEED MIXTURE
2040 PRINT"      5. DRAINAGE
2045 [141]9000
2050 [139]R$[178]"3"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2100
2060 [141]9200
2065 [153]"  (null)O, THE CORRECT CHOICE IS...
2070 PRINT"         GROUND COVERING [146].":W=W+1
2075 GOSUB9052
2080 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2099 :
2100 PRINT"[147]":POKE53280,8:POKE53281,15:POKE646,0
2110 PRINT" 2       AERATION
2115 [153]"         USRUSRUSRUSRUSRUSRUSRUSR
2120 PRINT"      1. VENTILATION
2125 [153]"      2. EXPANSION
2130 PRINT"      3. LIGHTNESS
2135 [153]"      4. GROWTH
2140 PRINT"      5. FLYING
2145 [141]9000
2150 [139]R$[178]"1"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2200
2155 [141]9200
2160 [153]"  (null)O, THE CORRECT CHOICE IS ...
2165 PRINT"         VENTILATION [146].":W=W+1
2170 GOSUB9052
2175 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2199 :
2200 PRINT"[147]":POKE53280,5:POKE53281,15:POKE646,0
2210 PRINT" 3       POLLINATE
2215 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSR
2220 PRINT"      1. TO SCATTER SEED
2225 [153]"      2. TO CUT
2230 PRINT"      3. TO FERTILIZE
2235 [153]"      4. TO BLEND
2240 PRINT"      5. TO IRRIGATE
2245 [141]9000
2250 [139]R$[178]"3"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2300
2255 [141]9200
2260 [153]"  (null)O, THE CORRECT CHOICE IS ...
2265 PRINT"         TO FERTILIZE [146]":W=W+1
2270 GOSUB9052
2275 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2299 :
2300 PRINT"[147]":POKE53280,3:POKE53281,15:POKE646,0
2310 PRINT" 4       GAZEBO
2315 [153]"         USRUSRUSRUSRUSRUSRUSR
2320 PRINT"      1. LARGE GARDEN STATUE
2325 [153]"      2. WATER SPRINKLER
2330 PRINT"      3. SMALL [193]FRICAN ANIMAL
2335 [153]"      4. GENTLY SLOPING HILL
2340 PRINT"      5. SUMMERHOUSE
2345 [141]9000
2350 [139]R$[178]"5"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2400
2355 [141]9200
2360 [153]"  (null)O, THE CORRECT CHOICE IS ...
2365 PRINT"         SUMMERHOUSE [146]":W=W+1
2370 GOSUB9052
2375 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2399 :
2400 PRINT"[147]":POKE53280,3:POKE53281,15:POKE646,0
2410 PRINT" 5       FLORA
2415 [153]"         USRUSRUSRUSRUSR
2420 PRINT"      1. BRILLIANT COLOUR
2425 [153]"      2. PLANT LIFE
2430 PRINT"      3. ANIMAL LIFE
2435 [153]"      4. TINY, HELPFUL INSECT
2440 PRINT"      5. GROUND OATS
2445 [141]9000
2450 [139]R$[178]"2"[167] [141]9100:[153]"         LENORRECT!":[141]9052:[137]2500
2455 [141]9200
2460 [153]"  (null)O, THE CORRECT CHOICE IS ...
2465 PRINT"         PLANT LIFE [146]":W=W+1
2470 GOSUB9052
2475 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2499 :
2500 PRINT"[147]":POKE53280,7:POKE53281,15:POKE646,0
2510 PRINT" 6       TRELLIS
2515 [153]"         USRUSRUSRUSRUSRUSRUSR
2520 PRINT"      1. HANGING PLANT
2525 [153]"      2. WINDOW FLOWER BOX
2530 PRINT"      3. CLIMBING VINE
2535 [153]"      4. SUPPORTING STRUCTURE
2540 PRINT"      5. LAMP STAND
2545 [141]9000
2550 [139]R$[178]"4"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2600
2555 [141]9200
2560 [153]"  (null)O, THE CORRECT CHOICE IS ...
2565 PRINT"         SUPPORTING STRUCTURE [146]":W=W+1
2570 GOSUB9052
2575 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2599 :
2600 PRINT"[147]":POKE53280,2:POKE53281,15:POKE646,0
2610 PRINT" 7       TENDRIL
2615 [153]"         USRUSRUSRUSRUSRUSRUSR
2620 PRINT"      1. THICK STALK
2625 [153]"      2. LEAF HAIR
2630 PRINT"      3. CONTAINER FOR PLANTS
2635 [153]"      4. SLENDER STEM
2640 PRINT"      5. FARM WAGON
2645 [141]9000
2650 [139]R$[178]"4"[167] [141]9100:[153]"         LENORRECT!":[141]9052:[137]2700
2655 [141]9200
2660 [153]"  (null)O, THE CORRECT CHOICE IS ...
2665 PRINT"         SLENDER STEM [146]":W=W+1
2670 GOSUB9052
2675 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2699 :
2700 PRINT"[147]":POKE53280,11:POKE53281,15:POKE646,0
2710 PRINT" 8       BONSAI
2715 [153]"         USRUSRUSRUSRUSRUSR
2720 PRINT" THE ART OF 1. USING PEBBLES AND STONES
2725 [153]"            2. MID$APANESE LANDSCAPING
2730 PRINT"            3. GROWING DWARF TREES
2735 [153]"            4. HYDROPONIC TOMATOES
2740 PRINT"            5. [202]APANESE VEGETABLE
2745 [141]9000
2750 [139]R$[178]"3"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2800
2755 [141]9200
2760 [153]"  (null)O, THE CORRECT CHOICE IS ...
2765 PRINT"         GROWING DWARF TREES [146]":W=W+1
2770 GOSUB9052
2775 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2799 :
2800 PRINT"[147]":POKE53280,10:POKE53281,15:POKE646,0
2810 PRINT" 9       HARROW
2815 [153]"         USRUSRUSRUSRUSRUSR
2820 PRINT"      1. TO LEVEL PLOWED LAND
2825 [153]"      2. TO GRADE IN CONTOURS
2830 PRINT"      3. TO DECORATE
2835 [153]"      4. TO SET FENCES
2840 PRINT"      5. TO DIG DITCHES
2845 [141]9000
2850 [139]R$[178]"1"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]2900
2855 [141]9200
2860 [153]"  (null)O, THE CORRECT CHOICE IS ...
2865 PRINT"         TO LEVEL PLOWED LAND [146]":W=W+1
2870 GOSUB9052
2875 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2899 :
2900 PRINT"[147]":POKE53280,5:POKE53281,15:POKE646,0
2910 PRINT" 10      ARABLE
2915 [153]"         USRUSRUSRUSRUSRUSR
2920 PRINT"      1. EASILY CRUMBLED
2925 [153]"      2. FIT FOR PLOWING
2930 PRINT"      3. LIGHT AND FLUFFY
2935 [153]"      4. DRIED OUT
2940 PRINT"      5. DESERT LAND
2945 [141]9000
2950 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3000
2955 [141]9200
2960 [153]"  (null)O, THE CORRECT CHOICE IS ...
2965 PRINT"         FIT FOR PLOWING [146]":W=W+1
2970 GOSUB9052
2975 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
2999 :
3000 PRINT"[147]":POKE53280,12:POKE53281,15:POKE646,0
3010 PRINT" 11      BURGEON
3015 [153]"         USRUSRUSRUSRUSRUSRUSR
3020 PRINT"      1. TO SPROUT
3025 [153]"      2. TO CROWD TOGETHER
3030 PRINT"      3. TO WILT
3035 [153]"      4. TO COVER
3040 PRINT"      5. TO PRUNE
3045 [141]9000
3050 [139]R$[178]"1"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3100
3055 [141]9200
3060 [153]"  (null)O, THE CORRECT CHOICE IS ...
3065 PRINT"         TO SPROUT [146]":W=W+1
3070 GOSUB9052
3075 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053 :GOSUB9060
3099 :
3100 PRINT"[147]":POKE53280,10:POKE53281,15:POKE646,0
3110 PRINT" 12      SUCCULENT
3115 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSR
3120 PRINT"      1. SMOOTH
3125 [153]"      2. TENDER
3130 PRINT"      3. JUICY
3135 [153]"      4. TASTY
3140 PRINT"      5. SWEET
3145 [141]9000
3150 [139]R$[178]"3"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3200
3155 [141]9200
3160 [153]"  (null)O, THE CORRECT CHOICE IS ...
3165 PRINT"         JUICY [146]":W=W+1
3170 GOSUB9052
3175 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
3199 :
3200 PRINT"[147]":POKE53280,4:POKE53281,15:POKE646,0
3210 PRINT" 13      PERENNIAL
3215 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSR
3220 PRINT"      1. RARE
3225 [153]"      2. INFREQUENT
3230 PRINT"      3. EVERGREEN
3235 [153]"      4. LASTING
3240 PRINT"      5. COMMON
3245 [141]9000
3250 [139]R$[178]"4"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3300
3255 [141]9200
3260 [153]"  (null)O, THE CORRECT CHOICE IS ...
3265 PRINT"         LASTING [146]":W=W+1
3270 GOSUB9052
3275 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
3299 :
3300 PRINT"[147]":POKE53280,3:POKE53281,15:POKE646,0
3310 PRINT" 14      HUMUS
3315 [153]"         USRUSRUSRUSRUSR
3320 PRINT"      1. SANDY MIXTURE
3325 [153]"      2. SOIL BACTERIA
3330 PRINT"      3. DECOMPOSED MATTER
3335 [153]"      4. MOISTURE
3340 PRINT"      5. TROPICAL FUNGUS
3345 [141]9000
3350 [139]R$[178]"3"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3400
3355 [141]9200
3360 [153]"  (null)O, THE CORRECT CHOICE IS ...
3365 PRINT"         DECOMPOSED MATTER [146]":W=W+1
3370 GOSUB9052
3375 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
3399 :
3400 PRINT"[147]":POKE53280,13:POKE53281,15:POKE646,0
3410 PRINT" 15      PROPAGATE
3415 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSR
3420 PRINT"      1. TO UNFOLD
3425 [153]"      2. TO REPRODUCE
3430 PRINT"      3. TO BUILD UP
3435 [153]"      4. TO SUPPORT
3440 PRINT"      5. TO MOVE
3445 [141]9000
3450 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3500
3455 [141]9200
3460 [153]"  (null)O, THE CORRECT CHOICE IS ...
3465 PRINT"         TO REPRODUCE [146]":W=W+1
3470 GOSUB9052
3475 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
3480 PRINT"  [198]ROM [204]ATIN 'PROPAGARE'":GOSUB9060
3500 PRINT"[147]":POKE53280,7:POKE53281,15:POKE646,0
3510 PRINT" 16      PHOTOTROPISM
3515 [153]"         USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR
3520 PRINT"      1. SCOUNDREL
3525 [153]"      2. MOVEMENT TOWARD OR FROM LIGHT"
3530 [153]"      3. PLANT PHOTOGRAPHY
3535 PRINT"      4. TROPICAL ENVIRONMENT
3540 [153]"      5. WORSHIP OF TROPICAL FLOWERS
3545 GOSUB9000
3550 IFR$="2"THEN GOSUB9100:PRINT"         [195]ORRECT!":GOSUB9052:GOTO3600
3555 GOSUB9200
3560 PRINT"  [206]O, THE CORRECT CHOICE IS ...
3565 [153]"         MOVEMENT TOWARD OR FROM LIGHT WAIT"
3570 [141]9052:W[178]W[170]1
3575 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
3585 [141]9060
3600 [153]"LOAD":[151]53280,13:[151]53281,15:[151]646,0
3610 [153]" 17      WINDROW
3615 PRINT"         [183][183][183][183][183][183][183]
3620 [153]"      1. SOFT BREEZE
3625 PRINT"      2. RIPPLED WATER
3630 [153]"      3. A FINE SPRAY
3635 PRINT"      4. GROVE OF FRUIT TREES
3640 [153]"      5. ROW OF HAY
3645 GOSUB9000
3650 IFR$="5"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3700
3655 GOSUB9200
3660 PRINT"  [206]O, THE CORRECT CHOICE IS ...
3665 [153]"         ROW OF HAY WAIT":W[178]W[170]1
3670 [141]9052
3675 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
3700 [153]"LOAD":[151]53280,3:[151]53281,15:[151]646,0
3710 [153]" 18      TUBER
3715 PRINT"         [183][183][183][183][183]
3720 [153]"      1. PART OF A GREENHOUSE
3725 PRINT"      2. GARDEN TOOL
3730 [153]"      3. RIPE FRUIT
3735 PRINT"      4. ROOT
3740 [153]"      5. PART OF WATERING SYSTEM
3745 GOSUB9000
3750 IFR$="4"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO3800
3755 GOSUB9200
3760 PRINT"  [206]O, THE CORRECT CHOICE IS ...
3765 [153]"         ROOT WAIT":W[178]W[170]1
3770 [141]9052
3775 [153]"  (null)TOP AND MAKE A NOTE OF THIS.":[141]9053:[141]9060
3800 [153]"LOAD":[151]53280,10:[151]53281,15:[151]646,0
3810 [153]" 19      TOPIARY
3815 PRINT"         [183][183][183][183][183][183][183]
3817 [153]" (null)HE ART OF ..
3820 PRINT"      1. DESIGNING GARDENS
3825 [153]"      2. TRIMMING SHRUBS
3830 PRINT"      3. SURVEYING GARDENS
3835 [153]"      4. GROWING MINIATURE TREES
3840 PRINT"      5. GROWING HERBS INDOORS
3845 [141]9000
3850 [139]R$[178]"2"[167] [141]9100:[153]"      LENORRECT!":[141]9052:[137]3900
3855 [141]9200
3860 [153]"  (null)O, THE CORRECT CHOICE IS ...
3865 PRINT"         TRIMMING SHRUBS [146]":W=W+1
3870 GOSUB9052
3875 PRINT"  [211]TOP AND MAKE A NOTE OF THIS.":GOSUB9053:GOSUB9060
3900 PRINT"[147]":POKE53280,7:POKE53281,15:POKE646,0
3910 PRINT" 20      FALLOW
3915 [153]"         USRUSRUSRUSRUSRUSR
3917 PRINT" [208]ERTAINING TO:
3920 [153]"      1. AN UNSEEDED FIELD
3925 PRINT"      2. BARREN AREA
3930 [153]"      3. GULLY
3935 PRINT"      4. COASTAL MARSH
3940 [153]"      5. WOOD LOT
3955 GOSUB9000
3960 IFR$="1"THEN GOSUB9100:PRINT"      [195]ORRECT!":GOSUB9052:GOTO4500
3965 GOSUB9200
3970 PRINT"  [206]O, THE CORRECT CHOICE IS ...
3975 [153]"         AN UNSEEDED FIELD WAIT":W[178]W[170]1:[141]9052:[141]9060
4500 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,1:C[178]20[171]W
4505 [153]"  (null)OU HAVE COMPLETED THIS MODULE AND
4510 PRINT"  GOT";C;"WORDS CORRECT.":GOSUB9055
4515 GOTO500
4999 :
5000 PRINT"[147]":POKE53280,12:POKE53281,12:POKE646,0
5005 PRINT"              [196][197][198][201][206][201][212][201][207][206][211] [146]
5100 [153]" 1.  (null)(null)(null)LENLEFT$
5110 PRINT"     [199]ROUND COVERING THAT IS MADE UP OF      LEAVES, STRAW, ";
5120 PRINT"AND THE LIKE TO          PROTECT PLANTS.
5130 [153]" * (null)IDDLE VALNGLISH 'MOLSH' (SOFT)
5140 GOSUB9070
5200 PRINT"[147] 2.  [193][197][210][193][212][201][207][206]
5210 [153]"     (null)ENTILATION; EXPOSURE TO AIR            CIRCULATION; AS, ";
5220 [153]"THE AERATION OF        SOIL BY EARTHWORMS.
5230 PRINT" * [199]REEK 'AER' (AIR) "
5240 GOSUB9070
5300 PRINT"[147] 3.  [208][207][204][204][201][206][193][212][197]
5310 [153]"     (null)O FERTILIZE, AS WHEN BEES OR WIND      CARRY POLLEN ";
5320 [153]"CONSISTING OF MALE SEX     CELLS TO THE FEMALE PARTS OF A
5330 PRINT"     FLOWER.
5340 [153]" * (null)ATIN 'POLLEN' (POWDER)"
5350 [141]9070
5400 [153]"LOAD 4.  CHR$ATN(null)VALPEEK(null)
5410 PRINT"     [211]UMMERHOUSE; ANY FREESTANDING,          ROOFED STRUCTURE ";
5420 PRINT"THAT IS OPEN ON        ALL SIDES.
5430 [153]" * (null)ATIN FROM 'GAZE'
5440 GOSUB9070
5500 PRINT"[147] 5.  [198][204][207][210][193]
5510 [153]"     ATNLL THE PLANT LIFE OF A PARTICULAR      PLACE AND TIME."
5520 [153]" * (null)ATIN 'ASCLORA' ((null)OMAN GODDESS OF         FLOWERS.
5530 GOSUB9070
5600 PRINT"[147] 6.  [212][210][197][204][204][201][211]
5610 [153]"     (null)TRUCTURE MADE OF THIN PIECES OF        WOOD OR METAL TO ";
5620 [153]"SUPPORT CLIMBING       PLANTS.
5630 PRINT" * [204]ATIN 'TRI' (THREE) 'LICIUM' (THREAD)
5640 [141]9070
5700 [153]"LOAD 7.  (null)VAL(null)STR$(null)RIGHT$(null)
5710 PRINT"     [193] SLENDER, SPIRALLING STEM THAT         COILS AROUND ";
5720 PRINT"AN OBJECT.
5730 [153]"   * ASCRENCH 'TENDRON' (TENDER SHOOT)
5740 GOSUB9070
5800 PRINT"[147] 8.  [194][207][206][211][193][201]
5810 [153]"     (null)ECHNIQUE OF GROWING DWARF TREES        OR SHRUBS IN ";
5820 [153]"SMALL POTS."
5830 [153]"   * MID$APANESE (POTTED PLANT)
5840 GOSUB9070
5900 PRINT"[147] 9.  [200][193][210][210][207][215]
5905 [153]"     (null)O LEVEL PLOWED LAND WITH A FARM        IMPLEMENT THAT ";
5910 [153]"HAS MANY SPIKELIKE        DISKS."
5915 [153]"   * (null)IDDLE VALNGLISH 'HARWE'
5920 GOSUB9070
5950 PRINT"[147] 10. [193][210][193][194][204][197]
5955 [153]"     ATN DESCRIPTION OF LAND FIT FOR           PLOWING AND FOR ";
5960 [153]"GROWING CROPS."
5965 [153]"   * (null)ATIN 'ARARE' (TO PLOW)
5970 GOSUB9070
6000 PRINT"[147] 11. [194][213][210][199][197][207][206]
6010 [153]"     (null)O SPROUT; DEVELOP BUDS, SHOOTS,        LEAVES; AS, ";
6020 [153]"(null)ILDFLOWERS BURGEON         IN THE SPRING.
6030 PRINT"     [193]LSO, TO FLOURISH; AS, A PERSON'S       BURGEONING BUSINESS."
6040 PRINT"   * [198]RENCH 'BURJON' (BUD)
6050 [141]9070
6100 [153]"LOAD 12. (null)(null)LENLEN(null)(null)VAL(null)(null)
6110 PRINT"     [202]UICY; AS, A SUCCULENT STRAWBERRY.      [193]LSO, OF PLANTS ";
6120 PRINT"HAVING THICK,           FLESHY LEAVES.
6130 [153]"   * (null)ATIN 'SUCUS' (JUICE, SAP)
6140 GOSUB9070
6200 PRINT"[147] 13. [208][197][210][197][206][206][201][193][204]
6210 [153]"     (null)ASTING, ENDURING; AS, (null)ERENNIAL        PLANTS LIVE FOR ";
6220 [153]"MORE THAN TWO YEARS.
6230 PRINT"   * [204]ATIN 'PERENIS'
6240 [141]9070
6300 [153]"LOAD 14. LEFT$(null)(null)(null)(null)
6310 PRINT"     [208]ARTIALLY DECOMPOSED PLANT AND          ANIMAL MATTER ";
6320 PRINT"THAT MAKES THE            SOIL RICH.
6330 [153]"   * (null)ATIN (SOIL, EARTH)
6340 GOSUB9070
6400 PRINT"[147] 15. [208][210][207][208][193][199][193][212][197]
6410 [153]"     (null)O REPRODUCE; CAUSE A PLANT OR          ANIMAL TO BREED OR ";
6420 [153]"MULTPLY.
6430 PRINT"   * [204]ATIN 'PROPAGARE'
6440 [141]9070
6500 [153]"LOAD 16. (null)LEFT$(null)(null)(null)(null)(null)(null)(null)RIGHT$(null)(null)
6510 PRINT"     [205]OVEMENT OF A PLANT TOWARDS OR          AWAY FROM LIGHT ";
6520 PRINT"SOURCES.
6530 [153]"   * CHR$REEK 'PHOTO' (LIGHT) AND               'TROPOS'";
6540 [153]" (TURNING)"
6550 [141]9070
6600 [153]"LOAD 17. (null)RIGHT$(null)STR$(null)(null)(null)
6610 PRINT"     [210]OW OF HAY RAKED TOGETHER TO DRY        BEFORE BEING STACKED.
6620 [153]"     ATNNY SIMILAR ROW; AS, DRY LEAVES         BLOWN IN WINDROWS.
6630 PRINT"   * [197]NGLISH 'WIND' AND 'ROWS'
6640 [141]9070
6700 [153]"LOAD 18. (null)(null)PEEKVAL(null)
6710 PRINT"     [211]HORT, THICK, ROUNDED ROOT              PRODUCING BUDS ";
6720 PRINT"THAT WILL LATER          DEVELOP INTO NEW PLANTS.
6730 [153]"   * (null)ATIN 'TUBER' (SWELLING)
6740 GOSUB9070
6800 PRINT"[147] 19. [212][207][208][201][193][210][217]
6810 [153]"     (null)HE ART OF TRIMMING SHRUBS, TREES       AND LAWNS INTO ";
6820 [153]"ORNAMENTAL SHAPES.
6830 PRINT"   * [204]ATIN 'TOPIA' (ORNAMENTAL               GARDENING.
6840 [141]9070
6900 [153]"LOAD 20. ASCATN(null)(null)(null)(null)
6910 PRINT"     [208]ERTAINING TO A FIELD LEFT UNSEEDED - AFTER BEING ";
6920 PRINT"PLOWED AND HARROWED.
6930 [153]"     (null)O REGAIN FERTILITY.
6940 PRINT"   * [207]LD [197]NGLISH 'FEALIG' (PLOWED LAND)
6950 [141]9070
8500 [153]"LOAD":[151]53280,0:[151]53281,0:[151]646,7
8505 [139][197](W$)[179]3[167][137]8565
8515 [153]"              (null)ATN(null)(null)RIGHT$(null)CHR$ WAITSYS
8520 PRINT"   [201]F YOU MISSED MORE THAN TWO WORDS       YOU SHOULD REPEAT THIS";
8525 PRINT" MODULE."
8530 GOSUB 9052
8565 PRINT"[147]    [212]HE NEXT MODULE IN THIS SERIES IS                 [214][207][195][193][194] 3
8570 [141]9052
8575 [153]"    (null)EMEMBER....":[141]9051
8580 [153]"   RIGHT$F YOU KNOW THE WORDS - YOU CAN         COMMUNICATE!
8585 GOSUB9052
8590 PRINT"    [193] GOOD VOCABULARY IS WORTH [210][197][193][204]         GOLD!":GOSUB9059
8595 GOTO9500
9000 INPUT"    ";R$
9005 IFR$<>"1"ANDR$<>"2"ANDR$<>"3"ANDR$<>"4"ANDR$<>"5"THEN 9000
9010 RETURN
9050 REM TIME SELECTORS
9051 FORT=1TO1000:NEXT:RETURN
9052 FORT=1TO2000:NEXT:RETURN
9053 FORT=1TO3000:NEXT:RETURN
9054 FORT=1TO4000:NEXT:RETURN
9055 FORT=1TO5000:NEXT:RETURN
9059 FORT=1TO9000:NEXT:RETURN
9060 GOSUB 9052
9061 PRINT"  [208]RESS  [211][208][193][195][197] [146] TO CONTINUE.
9062 [161]R$:[139]R$[179][177][199](32)[167]9062
9063 [142]
9070 [141] 9052
9071 [153]"   (null)RESS  (null)(null)ATNLENVAL WAIT TO CONTINUE.
9072 GETR$:IFR$<>CHR$(32)THEN9072
9073 RETURN
9099 :
9100 REM 'YES' SOUND
9105 S=54272:FORS=STOS+28:POKEE,0:NEXT
9110 POKE54296,15:POKE54277,42:POKE54278,250
9115 POKE54276,23:POKE54273,23:POKE54272,191
9120 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
9125 POKE54296,0:RETURN
9199 :
9200 REM 'NO' SOUND
9205 S=54272:FORS=STOS+28:POKEE,0:NEXT
9210 POKE54296,15:POKE54277,18:POKE54278,242
9215 POKE54276,33:POKE54273,4:POKE54272,48
9220 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO400:NEXT
9225 FORE=STOS+28:POKEE,0:NEXT:RETURN
9299 :
9300 REM 'BLIP' SOUND
9305 S=54272:FORL=STOS+28:POKEL,0:NEXT:POKES+5,14:POKES+9,240:POKES+24,15
9310 HF=S+1:LF=S
9315 POKES+4,17:POKEHF,INT(RND(0)*50):POKELF,250:POKES+4,16:RETURN
9500 PRINT"[147][153] [217]OU HAVE A CHOICE:
9510 [153]" (null)RESS  (null) WAIT TO REPEAT MODULE 2
9520 PRINT" [208]RESS  [205] [146] TO GO TO THE DISK MENU
9530 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[167]9530
9540 [139]R$[178]"M"[167] [137]9560
9545 [139]R$[178]"(null)"[167] [137]9560
9550 [140]:[137]10
9560 [153]"LOAD(null)ETURNING TO THE DISK MENU
9570 LOAD"MENU",8
9580 RUN
9590 END
10000 REM  IN MEMORIUM * RAD JANJIC *              R.I.P.  87:11:26
10001 REM  FOR CORRECTION OR IMPROVEMENTCONTACT BILL CUMBERLAND (416)278-7687